(prompt "I will now create the directory \"" DrawerName "\".")
(help @makedir-help)
(infos)
(confirm)
)
(complete 10)
(set icons
(askchoice
(prompt "What kind of Icons do you want?\n")
(choices "normal" "MagicWB" "none")
(help "Sorry, no help-file.")
(default 0)
)
)
(if (= icons 0)
(
(copyfiles
(prompt "Copying necessary Icons to \"" DrawerName "\".")
(help @copyfiles-help)
(source "Icons/normal")
(dest DrawerName)
(all)
(infos)
)
)
)
(if (= icons 1)
(
(copyfiles
(prompt "Copying necessary Icons to \"" DrawerName "\".")
(help @copyfiles-help)
(source "Icons/MagicWB")
(dest DrawerName)
(all)
(infos)
)
)
)
(complete 20)
(copyfiles
(prompt "Copying necessary files to \"" DrawerName "\".")
(help @copyfiles-help)
(source "new")
(dest DrawerName)
(all)
(infos)
)
(complete 30)
(copyfiles
(prompt "Copying necessary files to \"" DrawerName "\".")
(help @copyfiles-help)
(source "UpdateFromV1.0-1.2")
(dest DrawerName)
(all)
)
(complete 40)
(copyfiles
(prompt "Copying necessary files to \"" DrawerName "\".")
(help @copyfiles-help)
(source "UpdateFromV1.0-1.3")
(dest DrawerName)
(all)
)
(complete 50)
(copyfiles
(prompt "Copying necessary files to \"" DrawerName "\".")
(help @copyfiles-help)
(source "UpdateFromV1.0-1.5")
(dest DrawerName)
(all)
)
(complete 60)
(copyfiles
(prompt "Copying necessary files to \"" DrawerName "\".")
(help @copyfiles-help)
(source "UpdateFromV1.0-1.6")
(dest DrawerName)
(all)
)
(complete 65)
(copyfiles
(prompt "Copying necessary files to \"" DrawerName "\".")
(help @copyfiles-help)
(source "UpdateFromV1.0-1.7")
(dest DrawerName)
(all)
)
(complete 70)
(startup "Diamond Caves"
(prompt "An assign to \"DC:\" will be added to \"S:user-startup\" so that your system will be properly configured to use Diamond Caves.")
(help "Sorry, no help-file.")
(command "assign DC: \"" DrawerName "\"")
)
(makeassign "DC")
(makeassign "DC" DrawerName)
(complete 75)
(if ((database "vblank") 50)
(set DefaultMode 0)
(set DefaultMode 2)
)
(set ScreenModeNum
(askchoice
(prompt "Which screenmode do you want the title screen of Diamond Caves to use?\n(Note that the title was designed to be used on an interlaced screenmode)")
(prompt "I will now change the tooltype GAMEMODE to " ScreenMode ".")
(help "Soory, no help-file.")
(dest "DC:DiamondCaves")
(settooltype "GAMEMODE" ScreenMode)
(confirm)
)
(complete 85)
(set ControlNum
(askchoice
(prompt "Which controlling device do you want Player 1 to use?\n")
(choices "Joystick Port 1" "Joystick Port 2" "Keyboard")
(help "Soory, no help-file.")
(default 1)
)
)
(if (= ControlNum 0)
(set ControlMode "JOY1")
)
(if (= ControlNum 1)
(set ControlMode "JOY2")
)
(if (= ControlNum 2)
(set ControlMode "KEYS")
)
(tooltype
(prompt "I will now change the tooltype PLAYER1 to " ControlMode ".")
(help "Soory, no help-file.")
(dest "DC:DiamondCaves")
(settooltype "PLAYER1" ControlMode)
(confirm)
)
(complete 90)
(set ControlNum
(askchoice
(prompt "Which controlling device do you want Player 2 to use?\n")
(choices "Joystick Port 1" "Joystick Port 2" "Keyboard")
(help "Soory, no help-file.")
(default 0)
)
)
(if (= ControlNum 0)
(set ControlMode "JOY1")
)
(if (= ControlNum 1)
(set ControlMode "JOY2")
)
(if (= ControlNum 2)
(set ControlMode "KEYS")
)
(tooltype
(prompt "I will now change the tooltype PLAYER2 to " ControlMode ".")
(help "Sorry, no help-file.")
(dest "DC:DiamondCaves")
(settooltype "PLAYER2" ControlMode)
(confirm)
)
(complete 95)
(if (askbool
(prompt "Do you want to access the hardware directly instead of using the gameport.device?\n(This is faster but not OS-friendly)")
(help "Soory, no help-file.")
(default 0)
)
(set GamePort "OFF")
(set GamePort "ON")
)
(tooltype
(prompt "I will now change the tooltype GAMEPORTDEVICE to " GamePort ".")
(help "Soory, no help-file.")
(dest "DC:DiamondCaves")
(settooltype "GAMEPORTDEVICE" GamePort)
(confirm)
)
)
)
(complete 100)
(message "\nDiamond Caves installation/update complete, please make sure to read at least the first chapter of the doc-file.\n\nAnd now enjoy Diamond Caves V1.8!")